home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 63.zip / BS1 part 63 / Tom Landry d1.adf / install-DTLSF < prev    next >
Text File  |  1993-10-09  |  5KB  |  179 lines
  1. (onerror
  2.     (makeassign "DTLSF1_tmp" (safe))
  3.     (makeassign "DTLSF2_tmp" (safe))
  4.     (makeassign "DTLSF3_tmp" (safe))
  5. )
  6.  
  7.  
  8. ; just in case it was restarted
  9.  
  10. (makeassign "DTLSF1_tmp" (safe))     ; starting fresh
  11. (makeassign "DTLSF2_tmp" (safe))
  12. (makeassign "DTLSF3_tmp" (safe))
  13.  
  14.  
  15. ; see if this is actually an update
  16. (set is_update 0)
  17. (set tlsf-dest (getassign "DTLSF1" "a"))
  18.  
  19. (message
  20.     "Welcome to the new DELUXE VERSION of\n"
  21.     "\"TOM LANDRY STRATEGY FOOTBALL\"\n"
  22.     "You need 2.2 MB for DTLSF\n\n"
  23.     "Choose a destination partition or directory to contain DTLSF.  "
  24.     "The install program will create a directory called 'DTLSF' and copy "
  25.     "the program and files there for you.\n"
  26.     (help "Give the location where you want DTLSF installed; a directory will be created.");
  27. )
  28.  
  29.  
  30. (set intro-too 1)
  31. (set space-needed "2.2")
  32.  
  33.  
  34. (if tlsf-dest
  35.     (if (askbool
  36.         (prompt "You apparently already have DTLSF located in the drawer named \""
  37.             tlsf-dest "\".  Do you want the update installed there?")
  38.             (help "The installer has determined that you may already have a "
  39.                 "copy of DTLSF installed on your system. If this is incorrect, or "
  40.                 "you want the update installed elsewhere, select NO.  "
  41.                 "Otherwise, select YES."
  42.             )
  43.             (default 1)
  44.         )
  45.  
  46.         (set is_update 1)       ; if user wants in same place
  47.         (set tlsf-dest          ; if user wants in different place
  48.             (tackon
  49.                 (askdir
  50.                     (prompt ("Where do you wish to install DTLSF (You need %s MB)\n" space-needed))
  51.                     (help     "Choose a destination partition or directory to contain DTLSF.  "
  52.                             "The install program will create a directory called 'DTLSF' and copy "
  53.                             "all icons and files for you\n")
  54.                     (default @default-dest)
  55.                 )
  56.                 "DTLSF"
  57.             )
  58.         )
  59.     )
  60. )
  61.  
  62.  
  63. (if (not tlsf-dest)
  64.     (set tlsf-dest
  65.         (tackon
  66.             (askdir
  67.                 (prompt ("Where do you wish to install DTLSF (You need %s MB)\n" space-needed))
  68.                 (help     "Choose a destination partition or directory to contain DTLSF.  "
  69.                          "The install program will create a directory called 'DTLSF' and copy "
  70.                          "all icons and files for you\n")
  71.                 (default @default-dest)
  72.             )
  73.             "DTLSF"
  74.         )
  75.     )
  76. )
  77.  
  78.  
  79. (set @default-dest tlsf-dest)
  80. (makedir tlsf-dest (infos) (safe))
  81.  
  82. (set dspace (getdiskspace tlsf-dest))
  83.  
  84. (set space-needed 2200000)
  85.  
  86.  
  87. (askdisk
  88.     (prompt "\nPlease insert \"DTLSF Disk 1\" in any drive\n")
  89.     (help "The football program and editor will be copied to your drawer.")
  90.     (dest "DTLSF1")
  91.     (newname "DTLSF1_tmp")
  92. )
  93.  
  94. (copyfiles
  95.     (source "DTLSF1_tmp:")
  96.     (dest @default-dest)
  97.     (choices "Football" "editor" "convert_lg")
  98.     (infos)
  99. )
  100.  
  101.  
  102. (askdisk
  103.     (prompt "\nPlease insert \"DTLSF Disk 2\" in any drive\n")
  104.     (help "This disk contains support files and directories for the game and editor.")
  105.     (dest "DTLSF2")
  106.     (newname "DTLSF2_tmp")
  107. )
  108.  
  109. (copyfiles
  110.     (source "DTLSF2_tmp:")
  111.     (dest @default-dest)
  112.     (all)
  113.     (infos)
  114. )
  115.  
  116.  
  117. (askdisk
  118.     (prompt "\nPlease insert \"DTLSF Disk 3\" in any drive\n")
  119.     (help "This disk contains support files and directories for the game and editor.")
  120.     (dest "DTLSF3")
  121.     (newname "DTLSF3_tmp")
  122. )
  123.  
  124. (copyfiles
  125.     (source "DTLSF3_tmp:")
  126.     (dest @default-dest)
  127.     (all)
  128.     (infos)
  129. )
  130.  
  131.  
  132. (set string1 ("assign DTLSF1: %s" @default-dest))
  133. (set string2 ("assign DTLSF2: %s" @default-dest))
  134. (set string3 ("assign DTLSF3: %s" @default-dest))
  135.  
  136. (startup "DTLSFApp"
  137.     (prompt ("%s\n%s\n\n%s\n%s\n%s\n\n%s"
  138.              "The following assigns have been created."
  139.              "Do you want to add them to your startup?"
  140.               string1
  141.               string2
  142.               string3
  143.              "NOTE: The assigns will not be updated until you reboot."
  144.              )
  145.     )
  146.     (command ("assign DTLSF1: %s\n" @default-dest))
  147.     (command ("assign DTLSF2: %s\n" @default-dest))
  148.     (command ("assign DTLSF3: %s\n" @default-dest))
  149.     (help "DTLSF requires these logicals in order to locate its files, "
  150.           "leagues, sounds, etc.  If you request, the installer will add the "
  151.           "necessary assigns to your user-startup script which is run when "
  152.           "your machine boots.  If you don't allow the installer to do so now, "
  153.           "you will have to make the changes yourself.")
  154. )
  155.  
  156.  
  157. (makeassign "DTLSF1_tmp" (safe))
  158. (makeassign "DTLSF2_tmp" (safe))
  159. (makeassign "DTLSF3_tmp" (safe))
  160.  
  161. (message
  162.     "\nYour user-startup has now been modified for you.  The necessary assigns will "
  163.     "be in force whenever you boot.\n\n"
  164.     "If you want the assigns active now, remove all disks and close the window for Disk 2 before proceeding.\n"
  165.     "(Otherwise, you'll need to reboot).\n\n"
  166.     "To play DTLSF, open the drawer where it was installed, and double-click on the "
  167.     "\"Football\" icon\n\n"
  168. )
  169.  
  170.  
  171. (if (not @pretend)
  172.     ((makeassign "DTLSF1" @default-dest)
  173.      (makeassign "DTLSF2" @default-dest)
  174.      (makeassign "DTLSF3" @default-dest))
  175. )
  176.  
  177.  
  178. (exit)
  179.